(rmail-output-read-rmail-file-name): If in

rmail-summary buffer, search for pattern in rmail-file.

diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index 6b32c055839941ac032bf8911aed0620082dbcb5..c9232401133edf10fcbc50a7568ae9daf932d080 100644 (file)
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -50,6 +50,8 @@ Set `rmail-default-rmail-file' to this name as well as returning it."
            ;; Suggest a file based on a pattern match.
            (while (and tail (not answer))
              (save-excursion
+               (if (eq major-mode 'rmail-summary-mode)
+                   (set-buffer rmail-buffer)) 
                (goto-char (point-min))
                (if (re-search-forward (car (car tail)) nil t)
                    (setq answer (eval (cdr (car tail)))))